Bind C-x m, C-x 4 m, C-x 5 m to compose-mail...

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 40a9ae1b7dfbf25d1f6208053bd3eea61b0447cb..dc65121239976409a87f73056e906bbd58fc0251 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -485,6 +485,10 @@ for \\[find-tag] (which see)."
 (define-key esc-map "\t" 'lisp-complete-symbol)
 
 (define-key ctl-x-map "\C-e" 'eval-last-sexp)
+
+(define-key ctl-x-map "m" 'compose-mail)
+(define-key ctl-x-4-map "m" 'compose-mail-other-window)
+(define-key ctl-x-5-map "m" 'compose-mail-other-frame)
 \f
 (define-key ctl-x-map "r\C-@" 'point-to-register)
 (define-key ctl-x-map [?r ?\C-\ ] 'point-to-register)